home *** CD-ROM | disk | FTP | other *** search
- {$A+,B-,D-,E-,F-,G+,I+,L-,N-,O-,P-,Q-,R-,S-,T-,V-,X-,Y-}
- {$M 16384,0,655360}
-
- { written by zÅ∩ }
-
- { die Tabelle muß noch nachformatiert werden }
-
- program Sinus;
-
- var f: text; { Dateihandle }
- i: byte; { Laufvariable }
- begin
- assign(f,'sinus.dat'); { Datei zuweisen }
- rewrite(f); { und kreieren }
-
- for i:=0 to 255 do { Vollwinkel durchlaufen }
- begin
- if i mod 16=0 then { 16 Zahlen pro Zeile }
- write(f,#13#10'db ');
- write(f,byte(round(sin((i+0.5)*pi/128)*127)):3,',');
- { Winkel berechnen und ausgeben }
- end;
-
- close(f); { Datei schließen }
- end.